--[[
    编码: JX-24-19
    名称: 出库单-完工回报
    作者：HAN  
    日期：2025-1-29
    级别：项目
    
    函数： CompletionReturn

    功能:
        检查一下【出库单】中出库明细中的出库数量是否等于 计划出库数量，如果全部都已经出库完成
        需要把出库情况反馈给上游系统，根据出库单的创建方式不同向不同的来源报完工

    更改记录:
        V2.0 HAN 20241126
            拣料箱相同只出现一个
--]]
jx_base= require( "jx_base" )
jx_api = require ( "jx_external_api")

local function set_outbound_detail_pick_box_code( strLuaDEID, oo_no )
    local nRet, strRetInfo, pick_box_code, n, m, strUpdateSql

    local strCondition = "S_OO_NO = '"..oo_no.."'"
    local strOrder = "N_ROW_NO"
    local oo_detail_objs
    nRet, oo_detail_objs = m3.QueryDataObject(strLuaDEID, "Outbound_Detail", strCondition, strOrder)
    if (nRet ~= 0) then 
        lua.Error(strLuaDEID, debug.getinfo(1), "获取【Outbound_Detail】信息失败! " .. oo_detail_objs) 
    end
    local obj_attrs, dc_detail_objs
    -- 遍历出库单明细
    for n = 1, #oo_detail_objs do
        local picking_box_set = {}
        obj_attrs = m3.KeyValueAttrsToObjAttr(oo_detail_objs[n].attrs)

        -- 从【配盘明细】中获取 拣料箱编码
        strCondition = "S_BS_NO = '"..oo_no.."' AND S_BS_TYPE = 'Outbound_Order' AND S_ITEM_CODE = '"..obj_attrs.S_ITEM_CODE.."'"
        nRet, dc_detail_objs = m3.QueryDataObject(strLuaDEID, "Distribution_CNTR_Detail", strCondition, "")
        if (nRet ~= 0) then 
            lua.Error(strLuaDEID, debug.getinfo(1), "获取【Distribution_CNTR_Detail】信息失败! " .. dc_detail_objs) 
        end
        pick_box_code = ''
        for m = 1, #dc_detail_objs do 
            obj_attrs = m3.KeyValueAttrsToObjAttr(dc_detail_objs[m].attrs)
            -- V2.0 检查一下拣料箱是否已经存在
            if ( lua.IsInTable( obj_attrs.S_PICK_BOX_CODE, picking_box_set ) == false ) then
                table.insert( picking_box_set, obj_attrs.S_PICK_BOX_CODE )
                if ( pick_box_code ~= '' ) then
                    pick_box_code = pick_box_code..","
                end
                pick_box_code = pick_box_code..obj_attrs.S_PICK_BOX_CODE
            end
        end

        strUpdateSql = "S_PICK_BOX_CODE = '"..pick_box_code.."'"
        strCondition = "S_ID = '"..oo_detail_objs[n].id.."'"
        nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Outbound_Detail", strCondition, strUpdateSql )
        if ( nRet ~= 0 ) then  lua.Error( strLuaDEID, debug.getinfo(1), "更新【预分配容器】信息失败!"..strRetInfo ) end
    end    
end

function CompletionReturn ( strLuaDEID ) 
    local nRet, strRetInfo
    local oo_obj = {}
    nRet, oo_obj = m3.GetSysCurEditDataObj( strLuaDEID, "Outbound_Order" )
    if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "获取【出库单】对象属性失败!"..oo_obj ) end

    -- 如果已经报过完工或报工,不需要报完工，如果没完成也不需要执行后面的报告
    -- b_state = 4 出库单状态为完成
    if ( oo_obj.cr_state ~= 0 or oo_obj.b_state ~= 4 ) then return end

    if ( oo_obj.create_method == "JW-WMS" ) then
        -- 把【配盘明细】中的 pick_box_code 加到 出库单明细中
        set_outbound_detail_pick_box_code( strLuaDEID, oo_obj.no )
        nRet, strRetInfo = jx_api.JW_WMS_API_subPickDown( strLuaDEID, oo_obj.no )
    else
        nRet = 0
    end

    -- 更新出库单的完工回报属性
    local curTime = os.date("%Y-%m-%d %H:%M:%S")
    strCondition = "S_NO = '"..oo_obj.no.."'"
    local strSetAttr
    if ( nRet == 0 ) then
        strSetAttr = "N_B_STATE = 4, N_CR_STATE = 1, S_CR_ERR = '', T_CR = '"..curTime.."'"
    else
        lua.Debug( strLuaDEID, debug.getinfo(1), "JW-WMS subPickDown接口错误", strRetInfo )
        strSetAttr = "N_B_STATE = 4, N_CR_STATE = 2, S_CR_ERR = 'JW-WMS subPickDown接口错误, 详细信息看日志!', T_CR = '"..curTime.."'"
    end

    lua.Debug( strLuaDEID, debug.getinfo(1), "strCondition", strCondition )
    lua.Debug( strLuaDEID, debug.getinfo(1), "strSetAttr", strSetAttr )

    nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Outbound_Order", strCondition, strSetAttr )
    if ( nRet ~= 0 ) then  lua.Error( strLuaDEID, debug.getinfo(1), "更新【出库单】完工回报信息失败!"..strRetInfo ) end          
end